Исходный текст

Option Explicit

'==============================================================================
' Интеграция с AutoCAD.
' !!После создания объекта AutoCAD используем _его_ свойства и методы для работы.
'==============================================================================

Dim FileDialog, FName, AcadApp, AcadDocs, Doc, DocNew

' Создание объекта AutoCad
Set AcadApp = ThisApplication.Utility.StartAutoCad 
'получить коллекцию документов
Set AcadDocs = AcadApp.Documents 

'Создать новый документ: Add создает новый документ из шаблона 
'по умолчанию и устанавливает его активным
Set DocNew = AcadDocs.Add
'Нарисовать точку: SendCommand передает строку VB(VBA) в документ для обработки
DocNew.SendCommand("_line" & vbCr & "100,100" & vbCr & "200,200" & vbCrLf)

'Выбрать документ ACAD для открытия
Set FileDialog = ThisApplication.Dialogs.FileDlg
FileDlg.Filter = "Рисунок AutoCad (*.dwg)|*.dwg||"
    
If FileDlg.Show Then
    FName = FileDlg.FileName
    'Открыть документ: функция Open(Name As String, [ReadOnly], [Password])
    'открывает указанный документ и устанавливает его активным
    Set Doc = AcadDocs.Open(FName)
    'здесь работаем с документом...
End If
'==============================================================================